home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / fndation.arc / BACKUP.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-12-13  |  504 b   |  11 lines
  1. 10 'This is BACKUP.BAS, heavily modified by Tony Lindsey, (619) 295-2922
  2. 20 KEY OFF:CLS
  3. 30 OPEN "\dos\backup.msg" FOR APPEND AS #1
  4. 40 OPEN "\dos\backdate.msg" FOR APPEND AS #2
  5. 50 PRINT CHR$(7);"               We're almost finished! "
  6. 60 PRINT CHR$(7);"                    "
  7. 70 INPUT "What is the NUMBER of the diskette in drive a: RIGHT NOW";A$
  8. 80 PRINT #1,"              >> Backup disk #";A$;" <<"
  9. 90 PRINT #2,"        The most recent hard disk backup was performed on ";DATE$
  10. 100 SYSTEM:END
  11.